﻿Public Class Form1
  Private Sub Label1_Click(ByVal sender _
          As System.Object, _
          ByVal e As System.EventArgs) _
          Handles Label1.Click
    ' dichiarazione di una variabile di tipo Font
    ' (sarà istanziata successivamente)
    Dim font1 As Font
    ' lettura della dimensione attuale del font della Label
    Dim dimensione As Single
    dimensione = Me.Label1.Font.SizeInPoints
    ' alterna la dimensione a ogni click sul controllo
    If dimensione <> 40 Then
      font1 = New Font("Arial", 40)
      Me.Label1.Font = font1
    Else
      font1 = New Font("Arial", 8.25)
      Me.Label1.Font = font1
    End If
  End Sub
End Class
